home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_93-07_1993_-_de_Side_B.d64 / phone master (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  8KB  |  261 lines
  1. 91 clr:m=24000:dimn$(1001),t$(1001):poke53272,21:poke657,128:poke808,225
  2. 92 poke53265,23:poke53270,7:poke775,200:poke788,52
  3. 99 lu=0:la=0:gosub100:goto110
  4. 100 print"[147][154]":poke53281,6:poke53280,6
  5. 101 print"[145][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  6. 102 [153]"(NULL)tantantantan^tantan^                    ortantanortantantantan(NULL)
  7. 103 print"[221]  [221] [173][174][192][189]  tsp phone master[154]  [173][192][176][189] [221]  [221]
  8. 104 [153]"(NULL)  /tantanexp                        /tantanexp  (NULL)
  9. 105 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
  10. 106 [129]z[178]1[164]18:[153]"(NULL)                                    (NULL)":[130]
  11. 108 [153]"/tantantantantantantantantantantantantantan(c)1992 by magic diskconttanexp":[142]
  12. 110 [153]"[1] nummern eingeben":[153]"[2] korrigieren
  13. 113 print"[3] sortieren":print"[4] ansehen/suchen
  14. 115 [153]"list[5] block sichern":[153]"list[6] block laden
  15. 116 print"[154][7] speicher loeschen":print"[8] converter
  16. 117 [153]"[9] beenden
  17. 130 print""m"[154]bytes free in memory
  18. 131 [139]an[178]1[167][153]""an"contdatensatz vorhanden":[137]200
  19. 132 [153]""an"contdatensaetze vorhanden
  20. 200 geta$:ifa$=""then200
  21. 202 a=val(a$):ifa<1ora>9then200
  22. 205 onagoto300,210,211,212,213,800,214,900,1005
  23. 210 ifan>0then500
  24. 211 ifan>0then1900
  25. 212 ifan>0then1100
  26. 213 ifan>0then700
  27. 214 ifan>0then1000
  28. 215 gosub1240:goto200
  29. 216 a$(3)="                        druecke taste ":return
  30. 220 a$(2)="     der speicher ist zu voll !!      "
  31. 221 gosub216:goto240
  32. 225 a$(2)=" dieser name existiert nicht im block "
  33. 226 gosub216:goto240
  34. 230 a$(2)="  sind sie sich dabei ganz sicher ??  "
  35. 231 a$(3)=" j:ja                          n:nein ":goto240
  36. 232 a$(2)=" dieser block ist nicht auf der disk. "
  37. 233 gosub216:goto240
  38. 234 a$(2)="[160] es wurden alle datenfelder besetzt  "
  39. 235 gosub216:goto240
  40. 236 a$(2)=" das geraet wurde nicht eingeschaltet "
  41. 237 gosub216:goto240
  42. 240 print"[147]":poke53280,0:poke53281,0
  43. 241 a$(1)=" >>>>>>>>>>>>>> message <<<<<<<<<<<<< "
  44. 242 a$(0)="                                       "
  45. 250 print""a$(0):printa$(1):printa$(0):printa$(2):printa$(0):printa$(3)
  46. 251 printa$(0)
  47. 255 forx=1to100
  48. 260 geta$:ifa$=""thennext:goto270
  49. 261 onlagoto99,99,1001,1006,99
  50. 270 print"[172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]
  51. 271 [129]x[178]1[164]5:[153]"getwaitget":[130]x
  52. 272 [153]"lognewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewwaitcos
  53. 275 forx=1to100
  54. 278 geta$:ifa$=""thennext:goto250
  55. 280 onlagoto99,99,1001,1006,99
  56. 298 rem
  57. 299 end
  58. 300 gosub100:print"nummern eingeben":lu=1:print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
  59. 305 an[178]an[170]1:n$(an)[178]"":ma[178]0:mb[178]0:[139]m[179]28[167]la[178]5:[137]220
  60. 306 [139]an[177]1000[167]an[178]1000:la[178]5:[137]234
  61. 310 [153]"name   :
  62. 311 print"nummer :
  63. 320 [153]""[166]11)n$(an)"stopto ";
  64. 330 [161]a$:[139]a$[178]""[167]330
  65. 335 [139]a$[178][199](13)[175]ma[177]0[167]365
  66. 336 [139]a$[178][199](20)[167]355
  67. 337 [139]a$[178]"_"[175]lu[178]1[167]n$(an)[178]"":t$(an)[178]"":an[178]an[171]1:[137]99
  68. 338 [139]ma[178]16[167][141]1240:[137]330
  69. 340 [139]a$[178]"."[176]a$[178]" "[167]350
  70. 345 [139][198](a$)[177]64[175][198](a$)[179]91[167]350
  71. 347 [141]1240:[137]330
  72. 350 n$(an)[178]n$(an)[170]a$:ma[178]ma[170]1:[137]320
  73. 355 [141]360:[137]320
  74. 360 [139]ma[178]0[167][129]x[178]1[164]6:[151]53280,x:[130]:[142]
  75. 362 n$(an)[178][200](n$(an),ma[171]1):ma[178]ma[171]1:[142]
  76. 365 [153]"cmdcmd "
  77. 370 [153]""[166]11)t$(an)"stopto ";
  78. 380 [161]a$:[139]a$[178]""[167]380
  79. 385 [139]a$[178][199](13)[175]mb[177]0[167]420
  80. 386 [139]a$[178][199](20)[167]405
  81. 387 [139]mb[178]12[167][141]1240:[137]380
  82. 390 [139]a$[178]"/"[176]a$[178]" "[176]a$[178]"-"[167]400
  83. 395 [139][198](a$)[179]48[176][198](a$)[177]57[167][141]1240:[137]380
  84. 400 t$(an)[178]t$(an)[170]a$:mb[178]mb[170]1:[137]370
  85. 405 [141]410:[137]370
  86. 410 [139]mb[178]0[167][129]x[178]1[164]6:[151]53280,x:[130]:[142]
  87. 412 t$(an)[178][200](t$(an),mb[171]1):mb[178]mb[171]1:[142]
  88. 420 [153]"cmdcmd "
  89. 430 [153]"conteingabe korrekt ?
  90. 431 geta$:ifa$=""then431
  91. 432 ifa$="y"ora$="j"thena=1:goto450
  92. 440 ifa$="n"thena=2:goto450
  93. 441 goto431
  94. 450 print""spc(11)"                ":printspc(11)"            "
  95. 451 print"                      "
  96. 452 iflu=1then460
  97. 455 iflu=2anda=1thenan=y:m=m-ma-mb:goto99
  98. 456 goto320
  99. 460 ifa=1thenm=m-ma-mb:goto305
  100. 461 goto320
  101. 500 gosub100:y=an:ma=0:e$="":print"korrigieren":print"[183][183][183][183][183][183][183][183][183][183][183]
  102. 501 [153]"name :
  103. 510 print""e$"[144][164] ";
  104. 520 geta$:ifa$=""then520
  105. 521 ifa$=chr$(13)andma>0then535
  106. 522 ifa$=chr$(20)then530
  107. 523 ifa$="_"then99
  108. 524 ifma=16thengosub1240:goto520
  109. 525 ifa$="."ora$=" "then528
  110. 526 ifasc(a$)>64andasc(a$)<91orasc(a$)>192andasc(a$)<219then528
  111. 527 gosub1240:goto520
  112. 528 e$=e$+a$:ma=ma+1:goto510
  113. 530 gosub531:goto510
  114. 531 ifma=0thenforx=1to6:poke53280,x:next:return
  115. 532 e$=left$(e$,ma-1):ma=ma-1:return
  116. 535 print"[157][157] "
  117. 536 iflu=3then930
  118. 537 iflu=4then950
  119. 540 print"[154]searching...
  120. 550 [129]x[178]1[164]an:[139][200](n$(x),ma)[178]e$[167]560
  121. 555 [130]x:la[178]2:[137]225
  122. 560 [153]"on                  ":[139]lu[178]6[167]1510
  123. 565 [153]"onononon"n$(x):[153]""t$(x):[139]lu[178]5[167]1410
  124. 570 [153]"[1] veraendern
  125. 571 print"[2] weiter suchen
  126. 572 [153]"[3] ausgang
  127. 580 geta$:ifa$=""then580
  128. 581 ifa$="1"thenma=0:mb=0:lu=2:y=an:an=x:gosub100:goto590
  129. 582 ifa$="2"then595
  130. 583 ifa$="3"ora$="_"then99
  131. 584 goto580
  132. 590 m=m+len(n$(x)):m=m+len(t$(x)):n$(x)="":t$(x)="":goto310
  133. 595 print"":forz=1to11:print"                            ":nextz
  134. 596 print"[145][145][145][145][145][145][145]searching again...":goto555
  135. 610 ifa$="j"then99
  136. 700 open2,8,2:close2:ifst<>0thenla=2:goto236
  137. 701 gosub100:ma=0:e$="":print"block sichern":print"[183][183][183][183][183][183][183][183][183][183][183][183][183]
  138. 710 [153]"welchen block (1-9) ?
  139. 720 geta$:ifa$=""then720
  140. 721 ifa$="_"then99
  141. 722 a=val(a$):ifa<1ora>9then720
  142. 730 open1,8,9,"@:block"+a$+",s,w
  143. 740 [152]1,an",":[152]1,m","
  144. 750 [129]x[178]1[164]an
  145. 751 [153]""[166]16)an[170]an[171]x"cmd "
  146. 752 [152]1,t$(x)",":[130]x
  147. 753 [129]x[178]1[164]an
  148. 754 [153]""[166]16)an[171]x"cmd ":[152]1,n$(x)",":[130]x
  149. 755 [160]1:[137]99
  150. 800 [159]2,8,2:[160]2:[139]st[179][177]0[167]la[178]2:[137]236
  151. 801 [141]100:ma[178]0:e$[178]"":[153]"block laden":[153]"usrusrusrusrusrusrusrusrusrusrusr
  152. 810 print"welchen block (1-9) ?
  153. 820 [161]a$:[139]a$[178]""[167]820
  154. 821 [139]a$[178]"_"[167]99
  155. 822 a[178][197](a$):[139]a[179]1[176]a[177]9[167]820
  156. 830 y[178]an:an[178]0:[159]1,8,9,"block"[170]a$[170]",s,r":[159]15,8,15:[132]15,a:[160]15
  157. 832 [139]a[178]0[167][160]1:[159]1,8,9,"block"[170]a$[170]",s,r":[137]845
  158. 840 la[178]5:an[178]y:[160]1:[137]232
  159. 845 [132]1,an:[132]1,m
  160. 850 [129]x[178]1[164]an:[153]""[166]16)an[170]an[171]x"cmd ":[132]1,t$(x):[130]x
  161. 865 [129]x[178]1[164]an:[153]""[166]16)an[171]x"cmd ":[132]1,n$(x):[130]x
  162. 875 [160]1:[129]x[178]1[164]10:n$(x[170]an)[178]"":t$(x[170]an)[178]"":[130]:[137]99
  163. 900 [159]2,8,2:[160]2:[139]st[179][177]0[167]la[178]2:[137]236
  164. 901 [141]100:ma[178]0:e$[178]"":[153]"converter":[153]"usrusrusrusrusrusrusrusrusr
  165. 902 print"[1] daten-verwaltung
  166. 903 [153]"[2] pro register
  167. 906 print"[3] ausgang
  168. 910 [161]a$:[139]a$[178]""[167]910
  169. 911 [139]a$[178]"1"[167]lu[178]3:[137]920
  170. 912 [139]a$[178]"2"[167]lu[178]4:[137]920
  171. 913 [139]a$[178]"3"[176]a$[178]"_"[167]99
  172. 914 [137]910
  173. 920 [141]100:ma[178]0:e$[178]"":[153]"converter":[153]"usrusrusrusrusrusrusrusrusr
  174. 921 goto501
  175. 930 open1,8,9,+e$+",s,r
  176. 931 [132]1,a,b
  177. 932 an[178]b[171]a:m[178]20000:[139]a[178]1[167]an[178]b:[137]940
  178. 940 [129]x[178]a[164]an:[132]1,n$(x),b$,a$,a$,t$(x):m[178]m[171][195](n$(x)):m[178]m[171][195](t$(x))
  179. 941 n$(x)[178]n$(x)[170]" ":n$(x)[178]n$(x)[170]b$:m[178]m[171][195](b$):m[178]m[171]1:b$[178]"":[130]x:[160]1:[137]970
  180. 950 [159]1,8,9,[170]e$[170]",s,r
  181. 960 input#1,an:forx=1toan:input#1,a$,b$:n$(x)=left$(a$,16):t$(x)=left$(b$,12)
  182. 965 m=m-len(n$(x)):m=m-len(t$(x)):nextx
  183. 970 close1:forx=1to10:n$(x+an)="":t$(x+an)="":nextx:goto99
  184. 1000 la=3:goto230
  185. 1001 ifa$="j"thenclr:m=24000:dimn$(1501),t$(1501):goto99
  186. 1002 goto99
  187. 1005 la=4:goto230
  188. 1006 ifa$="j"thensys64738
  189. 1007 goto99
  190. 1100 gosub100:s=1:print"name                    telefon
  191. 1101 [153]"------------------------------------
  192. 1110 print"------------------------------------
  193. 1120 [153]"[1] seite vor         [6] loeschen
  194. 1121 print"[2] seite zurueck     [7] filtern
  195. 1122 [153]"[3] seite drucken     [8] filter aus
  196. 1123 print"[4] block anfang      [9] ausgang
  197. 1124 [153]"[5] suchen
  198. 1150 iffi=1then1160
  199. 1151 print"":forx=stos+9:print""n$(x):print"[145]"spc(25)t$(x):next
  200. 1152 goto1200
  201. 1160 print"":forx=stos+9
  202. 1161 ifleft$(t$(x),len(fi$))<>fi$thenprint""n$(x):print"[145]"spc(25)t$(x)
  203. 1162 ifleft$(t$(x),len(fi$))=fi$thenprint""n$(x):print"[145]"spc(25)t$(x)
  204. 1163 next
  205. 1200 geta$:ifa$=""then1200
  206. 1201 ifa$="_"then99
  207. 1202 a=val(a$):ifa<1ora>9then1200
  208. 1210 onagoto1220,1230,1800,1300,1400,1500,1600,1700,99
  209. 1220 ifn$(s+10)=""thengosub1240:goto1200
  210. 1221 s=s+10:gosub1250:goto1150
  211. 1230 ifs=1thengosub1240:goto1200
  212. 1231 s=s-10:gosub1250:goto1150
  213. 1240 forz=1to6:poke53280,z:nextz:return
  214. 1250 print"":forz=1to10:print"                                    "
  215. 1251 next:return
  216. 1300 s=1:gosub1250:goto1150
  217. 1400 gosub100:lu=5:ma=0:e$="":print"suchen":print"[183][183][183][183][183][183]
  218. 1401 [137]501
  219. 1410 [153]"druecke taste
  220. 1411 geta$:ifa$=""then1411
  221. 1412 goto99
  222. 1500 gosub100:lu=6:ma=0:e$="":print"loeschen":print"[183][183][183][183][183][183][183][183]
  223. 1501 [137]501
  224. 1510 [153]"onbitte warten "
  225. 1520 [139]x[178]an[167]m[178]m[170][195](n$(x)):m[178]m[170][195](t$(x)):n$(x)[178]"":t$(x)[178]"":an[178]an[171]1:[137]99
  226. 1530 m[178]m[170][195](n$(x)):m[178]m[170][195](t$(x))
  227. 1531 [129]y[178]x[164]an:n$(y)[178]n$(y[170]1):t$(y)[178]t$(y[170]1):[130]y:an[178]an[171]1:[137]99
  228. 1600 [141]100:lu[178]7:ma[178]0:e$[178]"":[153]"filter":[153]"usrusrusrusrusrusr
  229. 1601 print"vorwahl :
  230. 1602 [153]""e$"stopto ";
  231. 1603 [161]a$:[139]a$[178]""[167]1603
  232. 1604 [139]a$[178][199](13)[175]ma[177]0[167]1615
  233. 1605 [139]a$[178][199](20)[167]1612
  234. 1606 [139]a$[178]"_"[167]99
  235. 1607 [139]ma[178]12[167][141]1240:[137]1603
  236. 1608 [139]a$[178]"/"[176]a$[178]"-"[176]a$[178]" "[167]1611
  237. 1609 [139][198](a$)[177]47[175][198](a$)[179]58[167]1611
  238. 1610 [141]1240:[137]1603
  239. 1611 e$[178]e$[170]a$:ma[178]ma[170]1:[137]1602
  240. 1612 [141]1613:[137]1602
  241. 1613 [139]ma[178]0[167][129]x[178]1[164]6:[151]53280,x:[130]:[142]
  242. 1614 e$[178][200](e$,ma[171]1):ma[178]ma[171]1:[142]
  243. 1615 [153]"cmdcmd ":fi[178]1:fi$[178]e$:[137]1100
  244. 1700 fi[178]0:fi$[178]"":[137]1151
  245. 1800 [159]2,4,7:[160]2:[139]st[179][177]0[167]la[178]2:[137]236
  246. 1810 b$[178]" ":a$[178]""
  247. 1811 [159]4,4:[129]x[178]s[164]s[170]9
  248. 1812 a$[178]n$(x):a[178][195](n$(x)):b[178]20[171]a:[129]y[178]1[164]b:a$[178]a$[170]" ":[130]:[152]4,a$;t$(x)
  249. 1813 [130]:[160]4,4:[137]1200
  250. 1900 [139]an[177]1[167]2000
  251. 1901 [137]215
  252. 2000 aa[178]an:a[178]an:[129]x[178]a[164]0[169][171]1:[129]y[178]1[164]aa
  253. 2001 [139]n$(y)[177]n$(x)[167]2004
  254. 2002 [130]y:[130]x
  255. 2003 [137]2006
  256. 2004 a$(1)[178]n$(y):n$(y)[178]n$(x):n$(x)[178]a$(1):a$(2)[178]t$(y):t$(y)[178]t$(x):t$(x)[178]a$(2)
  257. 2005 [151]53280,[181](15[172][187](0))[170]1:[137]2002
  258. 2006 a$(1)[178]n$(0):a$(2)[178]t$(0)
  259. 2007 [129]x[178]0[164]aa:n$(x)[178]n$(x[170]1):t$(x)[178]t$(x[170]1):[130]x:n$(aa)[178]a$(1):t$(aa)[178]a$(2)
  260. 2008 [137]99
  261.